home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / mlibv22.zip / MLIB.INC < prev    next >
Text File  |  1993-01-27  |  3KB  |  53 lines
  1. DEFINT A-Z          '*** Mouse routine include file. ***
  2.  
  3. 'Mouse routines in assembly.
  4. DECLARE SUB InitPointer (MouseExist%)                           
  5. DECLARE SUB ShowPointer                                         
  6. DECLARE SUB HidePointer                                          
  7. DECLARE SUB ChangePointer (NewShape$, HotX%, HotY%)             
  8. DECLARE SUB SetPointer (X%, Y%)                                 
  9.  
  10. DECLARE SUB SetHLimitM (X%, Y%)                                 
  11. DECLARE SUB SetVLimitM (X%, Y%)                                 
  12. DECLARE SUB SetBoundM (x1%, y1%, x2%, y2%)                      
  13.  
  14. DECLARE SUB GetButtonM (ButtonNum%, X%, Y%)                     
  15. DECLARE SUB GetPressM (ButtonNum%, Stat%, Count%, X%, Y%)       
  16. DECLARE SUB GetReleaseM (ButnNum%, Stat%, Count%, X%, Y%)       
  17.  
  18. DECLARE SUB GetSpeedM (H%, V%, D%)                              
  19. DECLARE SUB SetSpeedM (H%, V%, D%)                              
  20. DECLARE SUB GetMotionM (X%, Y%)                                 
  21.  
  22. DECLARE FUNCTION GetSizeM%                                      
  23. DECLARE SUB SaveStateM (SaveBuff$, ErrNum%)                     
  24. DECLARE SUB RestoreStateM (SaveBuff$, ErrNum%)                  
  25. DECLARE FUNCTION ShowPtrM% (Buffer$)                            
  26.  
  27. DECLARE SUB DClicM (ButN%, XPos%, YPos%, Dble%)                 
  28. DECLARE SUB DClicRate (Rate%)                                   
  29. DECLARE SUB DClicBut (DCBut%)                                   
  30. DECLARE SUB DClicOn                                             
  31. DECLARE SUB DClicOff                                            
  32.                                                                 
  33. DECLARE FUNCTION InWinM (BYVAL x1%, BYVAL y1%, BYVAL x2%, BYVAL y2%)
  34.  
  35. DECLARE SUB ARROW0                                              
  36. DECLARE SUB HANDV0                                              
  37. DECLARE SUB HOURGLASS0                                          
  38. DECLARE SUB PEN0                                                
  39. DECLARE SUB MAGNIFYGLASS0                                       
  40. DECLARE SUB PAINTCUP0                                           
  41. DECLARE SUB MOUSE0                                              
  42. DECLARE SUB WATCH0                                              
  43. DECLARE SUB ARROW1                                              
  44.  
  45. TYPE MOUSEtype              ': Each record is 80 bytes.
  46.       DLT    AS INTEGER     ': 2  bytes for editor use.
  47.       HTX    AS INTEGER     ': 2  bytes for hotspot  X.
  48.       HTY    AS INTEGER     ': 2  bytes for hotspot  Y.
  49.       FRM    AS STRING * 10 ' bytes for solid or transparent format.
  50.       DAT    AS STRING * 64 ' bytes for shape data.
  51. END TYPE
  52.  
  53.